home *** CD-ROM | disk | FTP | other *** search
/ Software of the Month Club 1996 April / Software of the Month Club 1996 April.iso / mac / Education / LogoMation 1.1.1 ƒ / Examples / Rutland Middle school, Canada / Confusion / Confusion next >
Text File  |  1995-09-18  |  509b  |  37 lines
  1. // PROGRAM BY MICHAEL JACOB
  2. // JUNE 1995
  3. // FINE ARTS 8 - COMPUTER GRAPHICS
  4. // RUTLAND MIDDLE SCHOOL
  5. // KELOWNA, BC, CANADA
  6. // INSTRUCTOR:  MR. B. HOPE
  7.  
  8. Width 2
  9. Color 3585,59268,65535
  10. Function des()
  11.     Forward 240
  12.     Right 90
  13.     Forward 100
  14.     Right 90
  15.     Forward 50
  16.     Right 90
  17.     Forward 50
  18.     Right 90
  19.     Forward 100
  20.     Right 90
  21.     Forward 25
  22.     Right 90
  23.     Forward 25
  24.     Right 90
  25.     Forward 50
  26.     Left 45
  27. Up
  28. Backward 120
  29. Right 90
  30. Forward 50
  31. Left 90
  32. Down
  33. Repeat 8
  34.     des()
  35.  
  36. sound "Indigo"
  37.